home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Reader's Corner / Reader's Contibutions / Modified / FrEQuency data / 01835.ls < prev    next >
Encoding:
Text File  |  1995-01-19  |  1.2 KB  |  43 lines
  1. on exitFrame
  2.   global frameseeker
  3.   if the lastClick > (180 * 60) then
  4.     silence()
  5.     mayhem()
  6.     set the visible of sprite 18 to 0
  7.     set the visible of sprite 17 to 1
  8.     set frameseeker to random(1000)
  9.     go(frameseeker + 2000)
  10.     set the movieTime of sprite 34 to 0
  11.     set the movieRate of sprite 34 to 1
  12.     play frame "war sea"
  13.   end if
  14.   if the lastClick > (70 * 60) then
  15.     silence()
  16.     mayhem()
  17.     set the visible of sprite 18 to 0
  18.     set the visible of sprite 17 to 1
  19.     set frameseeker to random(1000)
  20.     go(frameseeker + 2000)
  21.     set the movieTime of sprite 34 to 0
  22.     set the movieRate of sprite 34 to 1
  23.     play frame "war sea"
  24.   end if
  25.   if (the lastClick > (60 * 60)) and (the movieRate of sprite 37 = 0) then
  26.     set the movieRate of sprite 37 to 1
  27.     play frame "aliena"
  28.   else
  29.     silence()
  30.     mayhem()
  31.     set the visible of sprite 18 to 0
  32.     set the visible of sprite 17 to 1
  33.     set frameseeker to random(1000)
  34.     go(frameseeker + 2000)
  35.     set the movieTime of sprite 34 to 0
  36.     set the movieRate of sprite 34 to 1
  37.     play frame "war sea"
  38.   end if
  39.   set the movieTime of sprite 34 to 0
  40.   set the movieRate of sprite 34 to 1
  41.   play frame "choppera"
  42. end
  43.